\begin{tabbing}
(\=Unfold `p{-}fun{-}exp` ( 0)$\cdot$) \+
\\[0ex]CollapseTHEN (((RWO "simple{-}primrec{-}add" 0) 
\\[0ex]CollapseTHENA (
\-\\[0ex]A\=uto$\cdot$)$\cdot$) \+
\\[0ex]CollapseTHEN ((Reduce 0) 
\\[0ex]CollapseTHEN ((NatInd ({-}2)) 
\\[0ex]CollapseTHEN (Reduce 0
\-\\[0ex])$\cdot$)$\cdot$)$\cdot$)$\cdot$
\end{tabbing}